home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / modula2 / 110 < prev    next >
Encoding:
Text File  |  1996-08-06  |  2.2 KB  |  55 lines
  1. Newsgroups: comp.lang.modula2
  2. Path: mcrcim.mcgill.edu!nyongwa!aliath
  3. From: aliath@nyongwa.montreal.qc.ca (Michel De Rosa)
  4. Subject: Re: Modula2 for C programmers?
  5. Message-ID: <DLIGLJ.FDE@nyongwa.montreal.qc.ca>
  6. Organization: Radio Free Nyongwa, Montreal (Qc), Canada
  7. Date: Sun, 21 Jan 1996 03:05:43 GMT
  8. References: <erico-1801961940460001@infinitehell.cnmat.berkeley.edu> <4dqusf$d7k@weck.brokersys.com>
  9. X-Newsreader: TIN [UNIX 1.3 950824BETA PL0]
  10.  
  11. jguthrie@brokersys.com wrote:
  12. : Eric Obermuhlner (erico@cnmat.berkeley.edu) wrote:
  13. : : Hi out there
  14. : 
  15. : : How do I do the ugly things that C programmers like so very much in Modula 2?
  16. : : Like getting a pointer to a var, pointer arithmetic, bit operations (shift, and, or, exor).
  17. : 
  18. : Well, I wound up doing that kind of stuff in assembly language.  I also
  19. : concluded that the insistence on abstraction above all else was sometimes 
  20. : detrimental to my efforts to easily write things such as CRC routines.
  21. : 
  22. Well there are a few reasons why we consider this sort of thing 'ugly'..
  23. Even so, there should be little need to go to asm for them..
  24.  
  25. Assigning a pointer to an ordinal variable, would be done thru type
  26. coercion, as in:   ordVar := CARDINAL(ptrVar);
  27.  
  28. THis assumes, of course, that the length (bit-size) of a CARDINAL is the
  29. same as for a pointer..
  30.  
  31. Pointer arith.. ugh!!! well if you *must*, coercing the pointer to a
  32. cardinal will often do the trick... but if you work on a platform with
  33. segmented addresses you'll have a lot of fun.. ISO helps, here by providing
  34. functions for incrementing and decrementing Adresses..
  35.  
  36. Bit operations.. unfortunately with pre-ISO compilers, we where usually
  37. stuck with multiplying or dividing by 2, for shift operations (rotate is
  38. a tad more involved), now ISO also provides functions for those.. for
  39. and/or/xor etc.. it's always been possible to do these, using the set
  40. operators.. first coerce to a BITSET, then apply these ops:
  41.  
  42.   +  ... set union,   'or'
  43.   *  ... set intersection,  'and'
  44.   /  ... set symmetric difference,  'xor'
  45.   -  ... set difference,  'and not'
  46.  
  47. Further you can more easily test for a bit, using:   bit IN someBitset
  48.  
  49. Set a specific bit:  INCL(someBitset, bitToSet)
  50. Reset a specific bit:  EXCL(someBitset, bitToReset)
  51.  
  52. Ciao!
  53. Michel De Rosa
  54. Aliath@nyongwa.montreal.qc.ca
  55.